Caso voce quereira baixar o Source code (codigo fonte) desse R notebook, clique no botao no canto superior direito chamado de “code” e selecione “download RMD” :)



Creditos da imagem: Instagram



Fala pessual! Muitas pessoas tem uma preocupacao muito grande com seus seguidores na redes sociais. Principalmente, muitas pessoas gostam de conferir se seus amigos a seguem de volta. Entretanto, muitos dos aplicativos disponibilizados por terceiros, ou nao sao confiaveis ou nao sao permitidos pelo proprio instagram. Entao, sem mais delongas vou explicar como conferir quem te segue devolta no instagram!

Para fazer isso acesse os seguintes botoes no seu instagram

Creditos da imagem: Instagram Creditos da imagem: Instagram

Creditos da imagem: Instagram

Creditos da imagem: Instagram

Creditos da imagem: Instagram

Aqui temos as contas que nos seguimos. Selecione todas elas, depois copie e cole no R.

Creditos da imagem: Instagram

Aqui temos as contas que nos seguem… Eu ainda nao tenho nenhuma conta me seguindo ja que eu comecei o meu canal agora… Copie e cole todas as contas no R

Creditos da imagem: Instagram



Os codigos utilizados no R

Pacotes necessarios:

Para utilizar os codigos voce tem que ter instalado o tityverse no environment do seu R… retire a hashtag do codigo abaixo caso voce nao tenha o tidyverse instalado.

#install.packages("tidyverse")

Carregando p tidyverse no environment

library(tidyverse)

Criando os vetores com os seguidores e quem voce esta seguindo

Utilizando os dados voce consiguio acessando sua conta no instagram

# cole as contas que seguem vc aq

seguidores <- c("eu
nao")
# cole as contas que vc segue aq

seguindo <- c("markosian
gal_gadot
karenxcheng
samhairwolfryder
siphomabona
tom_juenemann
instagram
eu")

Checando os outputs

seguindo
[1] "markosian\ngal_gadot\nkarenxcheng\nsamhairwolfryder\nsiphomabona\ntom_juenemann\ninstagram\neu"
seguidores
[1] "eu\nnao"

Retirnado os breaks

seguindo <- str_split(string = seguindo, 
                      pattern = "\n")
seguidores <- str_split(string = seguidores, 
                      pattern = "\n")

Checando os novos outputs

seguindo
[[1]]
[1] "markosian"        "gal_gadot"        "karenxcheng"     
[4] "samhairwolfryder" "siphomabona"      "tom_juenemann"   
[7] "instagram"        "eu"              
seguidores
[[1]]
[1] "eu"  "nao"

Transformando listas em vetores

seguindo <- seguindo[[1]]
seguidores <- seguidores[[1]]

Checando os outputs

seguindo
[1] "markosian"        "gal_gadot"        "karenxcheng"     
[4] "samhairwolfryder" "siphomabona"      "tom_juenemann"   
[7] "instagram"        "eu"              
seguidores
[1] "eu"  "nao"

Checando quais contas nao te seguem devolta

contas_unfollow <- setdiff(seguindo, seguidores)
contas_unfollow <- sort(contas_unfollow)
Essas sao as contas que nao te seguem devolta: gal_gadot instagram karenxcheng markosian samhairwolfryder siphomabona tom_juenemann





Se voce gostou do conteudo, increva-se no canal e me siga no Github/instagram!



Canal Roda, por favor! https://www.youtube.com/channel/UCse1qSsK5mOK9rwdkfYMcfQ

Github https://github.com/roda-por-favor

Instagram https://www.instagram.com/roda_por_favor

Roda, por favor!

P.S Me desculpe por qualquer erro ortografico, meu teclado nao permite que eu use acentos nas palavras e meu computador nao tem corretor para portugues :)

Se voce estiver visualizando esse documento no R ou RStudio os “<”br/“>” sao expressoes usadas para pular uma linha.

Muito obrigado, ate a proxima!

LS0tCnRpdGxlOiAiSW5zdGFncmFtIC0gUXVlbSBuYW8gdGUgc2VndWUgZGV2b2x0YT8iCmF1dGhvcjogIlJvZGEsIHBvciBmYXZvciEiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCkNhc28gdm9jZSBxdWVyZWlyYSBiYWl4YXIgbyAqU291cmNlIGNvZGUqIChjb2RpZ28gZm9udGUpIGRlc3NlICpSIG5vdGVib29rKiwgY2xpcXVlIG5vIGJvdGFvIG5vIGNhbnRvIHN1cGVyaW9yIGRpcmVpdG8gY2hhbWFkbyBkZSAiY29kZSIgZSBzZWxlY2lvbmUgImRvd25sb2FkIFJNRCIgOikKCjxici8+Cjxici8+CiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vY2RuMi52ZWN0b3JzdG9jay5jb20vaS90aHVtYi1sYXJnZS85Ny82Ni9mb2xsb3ctaWNvbi12ZWN0b3ItMjExNzk3NjYuanBnKQo8YnIvPgo8YnIvPgo8YnIvPgo8YnIvPgoKCiMjIyBGYWxhIHBlc3N1YWwhIE11aXRhcyBwZXNzb2FzIHRlbSB1bWEgcHJlb2N1cGFjYW8gbXVpdG8gZ3JhbmRlIGNvbSBzZXVzIHNlZ3VpZG9yZXMgbmEgcmVkZXMgc29jaWFpcy4gUHJpbmNpcGFsbWVudGUsIG11aXRhcyBwZXNzb2FzIGdvc3RhbSBkZSBjb25mZXJpciBzZSBzZXVzIGFtaWdvcyBhIHNlZ3VlbSBkZSB2b2x0YS4gRW50cmV0YW50bywgbXVpdG9zIGRvcyBhcGxpY2F0aXZvcyBkaXNwb25pYmlsaXphZG9zIHBvciB0ZXJjZWlyb3MsIG91IG5hbyBzYW8gY29uZmlhdmVpcyBvdSBuYW8gc2FvIHBlcm1pdGlkb3MgcGVsbyBwcm9wcmlvIGluc3RhZ3JhbS4gRW50YW8sIHNlbSBtYWlzIGRlbG9uZ2FzIHZvdSBleHBsaWNhciBjb21vIGNvbmZlcmlyIHF1ZW0gdGUgc2VndWUgZGV2b2x0YSBubyBpbnN0YWdyYW0hCgoKIyMjIFBhcmEgZmF6ZXIgaXNzbyBhY2Vzc2Ugb3Mgc2VndWludGVzIGJvdG9lcyBubyBzZXUgaW5zdGFncmFtCgohW0NyZWRpdG9zIGRhIGltYWdlbTogSW5zdGFncmFtXShodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcm9kYS1wb3ItZmF2b3IvU2VndWlkb3Jlc19JbnN0YWdyYW0vbWFpbi9JbWFnZW5zL1RlbGElMjBpbmljaWFsJTIwaW5zdGFncmFtJTIwLSUyMHNlZ3VpZG9yZXMuUE5HKQohW0NyZWRpdG9zIGRhIGltYWdlbTogSW5zdGFncmFtXShodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcm9kYS1wb3ItZmF2b3IvU2VndWlkb3Jlc19JbnN0YWdyYW0vbWFpbi9JbWFnZW5zL1RlbGElMjBpbmljaWFsJTIwaW5zdGFncmFtJTIwLSUyMHNldHRpbmdzLlBORykKCgoKIVtDcmVkaXRvcyBkYSBpbWFnZW06IEluc3RhZ3JhbV0oaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3JvZGEtcG9yLWZhdm9yL1NlZ3VpZG9yZXNfSW5zdGFncmFtL21haW4vSW1hZ2Vucy9pbnN0YWdyYW0lMjBzZWN1cml0eS5QTkcpCgoKCiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yb2RhLXBvci1mYXZvci9TZWd1aWRvcmVzX0luc3RhZ3JhbS9tYWluL0ltYWdlbnMvYWNjb3VudCUyMGRhdGElMjBpbnN0YWdyYW0uUE5HKQoKCiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yb2RhLXBvci1mYXZvci9TZWd1aWRvcmVzX0luc3RhZ3JhbS9tYWluL0ltYWdlbnMvYWNjb3VudHMlMjBmb2xsb3dpbmclMjBpbnN0YWdyYW0uUE5HKQoKCgoKCiMjIyBBcXVpIHRlbW9zIGFzIGNvbnRhcyBxdWUgbm9zIHNlZ3VpbW9zLiBTZWxlY2lvbmUgdG9kYXMgZWxhcywgZGVwb2lzIGNvcGllIGUgY29sZSBubyBSLiAKCiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yb2RhLXBvci1mYXZvci9TZWd1aWRvcmVzX0luc3RhZ3JhbS9tYWluL0ltYWdlbnMvYWNjb3VudHMlMjBJJTIwZm9sbG93JTIwaW5zdGFncmFtLlBORykKCgojIyMgQXF1aSB0ZW1vcyBhcyBjb250YXMgcXVlIG5vcyBzZWd1ZW0uLi4gRXUgYWluZGEgbmFvIHRlbmhvIG5lbmh1bWEgY29udGEgbWUgc2VndWluZG8gamEgcXVlIGV1IGNvbWVjZWkgbyBtZXUgY2FuYWwgYWdvcmEuLi4gQ29waWUgZSBjb2xlIHRvZGFzIGFzIGNvbnRhcyBubyBSCgoKIVtDcmVkaXRvcyBkYSBpbWFnZW06IEluc3RhZ3JhbV0oaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3JvZGEtcG9yLWZhdm9yL1NlZ3VpZG9yZXNfSW5zdGFncmFtL21haW4vSW1hZ2Vucy9hY291b250cyUyMGZvbGxvd2luZyUyMG1lJTIwaW5zdGFncmFtLlBORykKCjxici8+Cjxici8+CgojIyMgT3MgY29kaWdvcyB1dGlsaXphZG9zIG5vIFIKCgojIyBQYWNvdGVzIG5lY2Vzc2FyaW9zOgoKUGFyYSB1dGlsaXphciBvcyBjb2RpZ29zIHZvY2UgdGVtIHF1ZSB0ZXIgaW5zdGFsYWRvIG8gdGl0eXZlcnNlIG5vIGVudmlyb25tZW50IGRvIHNldSBSLi4uIHJldGlyZSBhIGhhc2h0YWcgZG8gY29kaWdvIGFiYWl4byBjYXNvIHZvY2UgbmFvIHRlbmhhIG8gdGlkeXZlcnNlIGluc3RhbGFkby4KCmBgYHtyfQojaW5zdGFsbC5wYWNrYWdlcygidGlkeXZlcnNlIikKYGBgCgoKQ2FycmVnYW5kbyBwIHRpZHl2ZXJzZSBubyBlbnZpcm9ubWVudAoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpgYGAKCiMjIENyaWFuZG8gb3MgdmV0b3JlcyBjb20gb3Mgc2VndWlkb3JlcyBlIHF1ZW0gdm9jZSBlc3RhIHNlZ3VpbmRvCgoKVXRpbGl6YW5kbyBvcyBkYWRvcyB2b2NlIGNvbnNpZ3VpbyBhY2Vzc2FuZG8gc3VhIGNvbnRhIG5vIGluc3RhZ3JhbQoKYGBge3J9CiMgY29sZSBhcyBjb250YXMgcXVlIHNlZ3VlbSB2YyBhcQoKc2VndWlkb3JlcyA8LSBjKCJldQpuYW8iKQpgYGAKCmBgYHtyfQojIGNvbGUgYXMgY29udGFzIHF1ZSB2YyBzZWd1ZSBhcQoKc2VndWluZG8gPC0gYygibWFya29zaWFuCmdhbF9nYWRvdAprYXJlbnhjaGVuZwpzYW1oYWlyd29sZnJ5ZGVyCnNpcGhvbWFib25hCnRvbV9qdWVuZW1hbm4KaW5zdGFncmFtCmV1IikKYGBgCgoKIyMgQ2hlY2FuZG8gb3Mgb3V0cHV0cyAKCmBgYHtyfQpzZWd1aW5kbwpgYGAKYGBge3J9CnNlZ3VpZG9yZXMKYGBgCgoKIyMgUmV0aXJuYWRvIG9zIGJyZWFrcyAKCmBgYHtyfQpzZWd1aW5kbyA8LSBzdHJfc3BsaXQoc3RyaW5nID0gc2VndWluZG8sIAogICAgICAgICAgICAgICAgICAgICAgcGF0dGVybiA9ICJcbiIpCmBgYAoKYGBge3J9CnNlZ3VpZG9yZXMgPC0gc3RyX3NwbGl0KHN0cmluZyA9IHNlZ3VpZG9yZXMsIAogICAgICAgICAgICAgICAgICAgICAgcGF0dGVybiA9ICJcbiIpCmBgYAoKCiMjIENoZWNhbmRvIG9zIG5vdm9zIG91dHB1dHMKYGBge3J9CnNlZ3VpbmRvCnNlZ3VpZG9yZXMKYGBgCgoKIyMgVHJhbnNmb3JtYW5kbyBsaXN0YXMgZW0gdmV0b3JlcwoKYGBge3J9CnNlZ3VpbmRvIDwtIHNlZ3VpbmRvW1sxXV0KYGBgCgpgYGB7cn0Kc2VndWlkb3JlcyA8LSBzZWd1aWRvcmVzW1sxXV0KYGBgCgoKCiMjIENoZWNhbmRvIG9zIG91dHB1dHMKCgpgYGB7cn0Kc2VndWluZG8KYGBgCgpgYGB7cn0Kc2VndWlkb3JlcwpgYGAKCgojIyBDaGVjYW5kbyBxdWFpcyBjb250YXMgbmFvIHRlIHNlZ3VlbSBkZXZvbHRhCgoKYGBge3J9CmNvbnRhc191bmZvbGxvdyA8LSBzZXRkaWZmKHNlZ3VpbmRvLCBzZWd1aWRvcmVzKQpjb250YXNfdW5mb2xsb3cgPC0gc29ydChjb250YXNfdW5mb2xsb3cpCmBgYAoKCmBgYHtyLCBlY2hvPUZBTFNFfQpjYXQoIkVzc2FzIHNhbyBhcyBjb250YXMgcXVlIG5hbyB0ZSBzZWd1ZW0gZGV2b2x0YToiLAogICBjb250YXNfdW5mb2xsb3cpCmBgYAoKCgo8YnIvPgo8YnIvPgo8YnIvPgo8YnIvPgoKCgojIyAqKlNlIHZvY2UgZ29zdG91IGRvIGNvbnRldWRvLCBpbmNyZXZhLXNlIG5vIGNhbmFsIGUgbWUgc2lnYSBubyBHaXRodWIvaW5zdGFncmFtISoqCgo8YnIvPgo8YnIvPgoKCioqQ2FuYWwgUm9kYSwgcG9yIGZhdm9yISoqIGh0dHBzOi8vd3d3LnlvdXR1YmUuY29tL2NoYW5uZWwvVUNzZTFxU3NLNW1PSzlyd2RrZllNY2ZRCgoKCgoqKkdpdGh1YioqIGh0dHBzOi8vZ2l0aHViLmNvbS9yb2RhLXBvci1mYXZvcgoKCgoKKipJbnN0YWdyYW0qKiBodHRwczovL3d3dy5pbnN0YWdyYW0uY29tL3JvZGFfcG9yX2Zhdm9yCgoKCgoKIVtSb2RhLCBwb3IgZmF2b3IhXShodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcm9kYS1wb3ItZmF2b3IvRG9jdW1lbnRvcy9tYWluL1JvZGElMjBwb3IlMjBmYXZvciUyMGJhbm5lci5QTkcpCgoKKipQLlMqKiBNZSBkZXNjdWxwZSBwb3IgcXVhbHF1ZXIgZXJybyBvcnRvZ3JhZmljbywgbWV1IHRlY2xhZG8gbmFvIHBlcm1pdGUgcXVlIGV1IHVzZSBhY2VudG9zIG5hcyBwYWxhdnJhcyBlIG1ldSBjb21wdXRhZG9yIG5hbyB0ZW0gY29ycmV0b3IgcGFyYSBwb3J0dWd1ZXMgOikgCgpTZSB2b2NlIGVzdGl2ZXIgdmlzdWFsaXphbmRvIGVzc2UgZG9jdW1lbnRvIG5vIFIgb3UgUlN0dWRpbyBvcyAiPCJici8iPiIgc2FvIGV4cHJlc3NvZXMgdXNhZGFzIHBhcmEgcHVsYXIgdW1hIGxpbmhhLiAKCgoKKipNdWl0byBvYnJpZ2FkbywgYXRlIGEgcHJveGltYSEqKgo=